#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;

#print "Would you like to play a game? Y/N :";

#chomp($_ = <>);
#

$_ = "I saw Barney\ndown at the bowling alley\nwith Fred\nlast night.\n";

if(/Barney.*Fred/s){
	say "In that case, I recommend that you go blowing.\n";
}
